home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCSmallEiffel / bin_c / short1.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  11.9 KB  |  491 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "short.h"
  9. T376 M376={376,NULL,NULL,NULL,NULL};
  10. T343 M343={NULL,NULL,NULL,NULL,0};
  11. T121 M121={121,NULL,NULL,NULL,NULL,NULL,NULL};
  12. T134 M134={134,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0};
  13. T868 M868={868,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL};
  14. T916 M916=NULL;
  15. T380 M380={380,NULL,NULL,NULL,NULL,NULL,NULL};
  16. T588 M588={588,NULL,NULL,NULL,NULL,NULL,NULL};
  17. T590 M590={0};
  18. T431 M431={NULL,NULL};
  19. T873 M873={873,NULL,NULL,NULL,0,NULL};
  20. T292 M292={292,NULL,NULL};
  21. T890 M890={890,NULL,NULL,NULL,NULL,NULL,NULL};
  22. T414 M414={414,NULL,NULL,NULL,NULL,NULL,NULL};
  23. T830 M830=NULL;
  24. T390 M390={390,NULL,NULL,NULL,NULL,NULL};
  25. T673 M673={NULL,NULL,NULL,NULL};
  26. T906 M906={906,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL};
  27. T28 M28={28,NULL,0,0,0};
  28. T235 M235={NULL,0,0,0};
  29. T604 M604={0,0,0,0,0};
  30. T349 M349={349,NULL,NULL,0};
  31. T933 M933={933,NULL,NULL,NULL,NULL};
  32. T886 M886={886,NULL,NULL,NULL,0,NULL};
  33. T446 M446={446,0,NULL,NULL,NULL,NULL};
  34. T398 M398={398,NULL,NULL,NULL,NULL,NULL,NULL};
  35. T59 M59={59,NULL,NULL,NULL};
  36. T679 M679={679,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  37. T145 M145={145,NULL,NULL,NULL};
  38. T477 M477={NULL,0,0,0};
  39. T147 M147={NULL,0,0,0};
  40. T892 M892={892,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL};
  41. T796 M796={796,NULL,NULL,NULL};
  42. T404 M404={404,NULL,NULL,NULL,NULL,NULL,NULL};
  43. T453 M453={453,NULL,NULL,NULL,NULL,NULL,NULL};
  44. T348 M348={NULL,NULL,NULL,NULL};
  45. T372 M372={372,NULL,NULL,NULL,0,0};
  46. T41 M41={NULL,0,0};
  47. T153 M153={NULL,NULL,NULL};
  48. T226 M226={NULL,0,0};
  49. T460 M460={460,NULL,NULL,NULL,NULL,NULL,NULL};
  50. T180 M180={180,NULL,NULL,NULL,NULL,NULL};
  51. T902 M902=NULL;
  52. T158 M158={158,NULL,NULL,NULL,NULL};
  53. T904 M904={904,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL};
  54. T953 M953={NULL};
  55. T809 M809={NULL,NULL,NULL};
  56. T794 M794={NULL,NULL,NULL,NULL,0,0,0,0,0};
  57. T689 M689={689,NULL,NULL,NULL,NULL,NULL,NULL};
  58. T605 M605={0,NULL,NULL,NULL,0,0,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  59. T958 M958={958,NULL,NULL,NULL};
  60. T943 M943={NULL,0,0,0};
  61. T306 M306={0};
  62. T368 M368={NULL,0,0,NULL,NULL,0,NULL,NULL};
  63. T636 M636={NULL,NULL};
  64. T429 M429={NULL,0,0,0};
  65. T358 M358={358,NULL,NULL,0,NULL};
  66. T592 M592={NULL,NULL,NULL};
  67. T529 M529={529,NULL,NULL,NULL};
  68. T436 M436={436,NULL,NULL,NULL,NULL};
  69. T764 M764={NULL,0,0,0};
  70. T644 M644={NULL};
  71. T388 M388={388,NULL};
  72. T900 M900={900,NULL};
  73. T843 M843={NULL,NULL,NULL,NULL,NULL,NULL};
  74. T686 M686={NULL,NULL,NULL,NULL};
  75. T406 M406={406,NULL,NULL,0,NULL};
  76. T338 M338={NULL,NULL,NULL,NULL,0,0,0,0,0};
  77. T7 M7={NULL,0,0};
  78. T675 M675={0,NULL,0,0};
  79. T347 M347={347,NULL,NULL,NULL,NULL};
  80. T932 M932={932,NULL,NULL,NULL,NULL,NULL,NULL};
  81. T676 M676={NULL,0};
  82. T321 M321={321,NULL,0,0};
  83. T629 M629={629,NULL,NULL,NULL};
  84. T239 M239={239,NULL,NULL,NULL,NULL};
  85. T936 M936={936,NULL,NULL,NULL};
  86. T377 M377={NULL,NULL};
  87. T683 M683={0,0,0};
  88. T733 M733={733,NULL,0,0,0};
  89. T990 M990={990,NULL,NULL,NULL,NULL,NULL};
  90. T247 M247={247,NULL,0,0,0};
  91. T849 M849={849,NULL,NULL};
  92. T410 M410={NULL,NULL,0};
  93. T696 M696={696,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0};
  94. T948 M948={NULL,0,0,0};
  95. T657 M657={657,NULL};
  96. T300 M300={300};
  97. T940 M940={940,NULL,NULL,NULL,NULL};
  98. T367 M367={367,NULL,NULL};
  99. T671 M671={NULL,NULL};
  100. T65 M65={65,NULL,0,0,0};
  101. T627 M627={NULL,0};
  102. T260 M260={260,NULL,NULL,0,0};
  103. T213 M213={NULL,NULL,NULL,NULL};
  104. T252 M252={252,NULL};
  105. T495 M495={NULL,0,0,0};
  106. T263 M263={263,NULL,0,0,0};
  107. T633 M633={NULL,NULL,NULL,NULL,0};
  108. T283 M283={283,NULL,0,NULL};
  109. T320 M320={320};
  110. T33 M33={NULL,NULL};
  111. T253 M253={253,NULL,NULL,NULL,NULL,NULL,NULL};
  112. T877 M877={NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  113. T670 M670=0;
  114. T278 M278={278,NULL,NULL,NULL,NULL,NULL,NULL};
  115. T767 M767={767,NULL,NULL,NULL,NULL,NULL};
  116. T880 M880={880,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  117. T393 M393={NULL,NULL};
  118. T723 M723={723,NULL};
  119. T688 M688={NULL};
  120. T31 M31={31,NULL,NULL,NULL,NULL};
  121. T701 M701={NULL,0,0,0};
  122. T46 M46={NULL};
  123. T522 M522={NULL,0,0,0};
  124. T963 M963={963,NULL,NULL,NULL};
  125. T707 M707={707,NULL};
  126. T417 M417={0};
  127. T712 M712={NULL,NULL};
  128. T552 M552={NULL,0,0,0};
  129. T760 M760={760,NULL,NULL,NULL,NULL,NULL,NULL};
  130. T669 M669={669,NULL};
  131. T534 M534={534,NULL,NULL,NULL,NULL,NULL,NULL};
  132. T915 M915={915,NULL,NULL,NULL,NULL,NULL,NULL};
  133. T999 M999={999,NULL,NULL,NULL,NULL,NULL};
  134. T352 M352={NULL,0,0};
  135. T720 M720={720,NULL,NULL,NULL,NULL};
  136. T680 M680={680};
  137. T441 M441=NULL;
  138. T64 M64={64,NULL};
  139. T420 M420={420,NULL};
  140. T517 M517={517,NULL,NULL,NULL,NULL,NULL};
  141. T848 M848={NULL,0,0,0};
  142. T199 M199={NULL,NULL,NULL,NULL,0,0,0,0,0};
  143. T520 M520={520,NULL,NULL,NULL,NULL,NULL,NULL};
  144. T451 M451={NULL,NULL};
  145. T340 M340=NULL;
  146. T708 M708={708,NULL,NULL,NULL};
  147. T709 M709={709,NULL,NULL,NULL,NULL};
  148. T454 M454={454,NULL,NULL,0,NULL};
  149. T51 M51={NULL,0,0,0};
  150. T919 M919=0;
  151. T479 M479={0};
  152. T664 M664={664,NULL,NULL,0};
  153. T554 M554={554,NULL,NULL,NULL,NULL,NULL,NULL};
  154. T557 M557={557,NULL,NULL,NULL,NULL,NULL,NULL};
  155. T72 M72={72,NULL,NULL,NULL,NULL,NULL};
  156. T854 M854={NULL,0,0};
  157. T209 M209={209,NULL};
  158. T26 M26={NULL,0,0,0};
  159. T491 M491={491,NULL};
  160. T587 M587={NULL,0,0,0};
  161. T505 M505={NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  162. T381 M381={381,NULL,0,0,0};
  163. T498 M498={NULL,NULL};
  164. T523 M523={523,NULL,NULL,NULL,NULL,NULL};
  165. T805 M805={805,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  166. T85 M85={85};
  167. T574 M574={574,NULL,NULL,NULL,NULL,NULL,NULL};
  168. T718 M718={NULL,NULL,NULL,NULL,0,0,0,0,0};
  169. T855 M855={NULL,0,0,0};
  170. T576 M576=0;
  171. T185 M185={185,NULL,0,0};
  172. T90 M90={90,NULL,NULL,NULL,NULL,NULL,NULL};
  173. T715 M715={715,NULL,NULL,NULL,NULL};
  174. T654 M654={NULL,0,0};
  175. T96 M96={96,NULL,0,0,0};
  176. T681 M681={NULL,0,0,0};
  177. T378 M378={NULL};
  178. T541 M541={NULL};
  179. T52 M52={NULL,0,0,0};
  180. T56 M56={NULL};
  181. T57 M57={57,NULL,NULL,NULL,NULL,NULL,NULL};
  182. T313 M313={313,NULL,NULL,NULL,NULL,NULL,NULL};
  183. T106 M106={106,NULL,NULL,NULL,NULL,NULL};
  184. T268 M268={268,NULL,NULL,NULL,NULL};
  185. T39 M39={39,NULL,NULL,NULL,0,NULL,0};
  186. T853 M853={853,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  187. T342 M342={342,NULL,NULL,0};
  188. T782 M782={NULL,NULL};
  189. T808 M808={808,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL};
  190. T893 M893={893};
  191. T222 M222={222,NULL,0,0};
  192. T881 M881={NULL,NULL};
  193. T907 M907={NULL,0,0};
  194. T593 M593={593,NULL,NULL,NULL,NULL,NULL,NULL};
  195. T788 M788={788,NULL};
  196. T250 M250={NULL,NULL,NULL,NULL,0,0,0,0,0,0,0};
  197. T237 M237={NULL,NULL,NULL,NULL,0,0,0,0,0};
  198. T317 M317={317,NULL,NULL,NULL,NULL,NULL};
  199. T23 M23={23,NULL,NULL,NULL,0,NULL};
  200. T487 M487={487,NULL,NULL,NULL,NULL,NULL};
  201. T583 M583={NULL,NULL,NULL,NULL};
  202. T863 M863={NULL,0,0,0};
  203. T608 M608={NULL,0,0,0};
  204. T818 M818={0,0,0,0,0,NULL,0,NULL,NULL,NULL,0,0,NULL,NULL,0,0,0,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,0};
  205. T490 M490={NULL,NULL};
  206. T820 M820={820,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL};
  207. T492 M492={492,NULL,NULL,NULL,NULL,NULL,NULL};
  208. T126 M126={126,NULL,NULL,NULL};
  209. T382 M382={NULL,0,0,0};
  210. T542 M542={NULL,NULL};
  211. T353 M353={NULL,0,0,0};
  212. T270 M270={270,NULL,NULL,NULL,NULL,NULL,NULL};
  213. T844 M844={844,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0};
  214. T256 M256={NULL,0,0};
  215. T845 M845={845,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL};
  216. T737 M737={NULL,NULL,NULL,0,0};
  217. T530 M530={530,NULL,NULL,NULL,NULL};
  218. T187 M187={NULL,0,0};
  219. T883 M883={883,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  220. T511 M511={NULL,0,0};
  221. T655 M655={655,NULL,NULL,NULL,NULL,NULL,NULL};
  222. T240 M240={240};
  223. T913 M913={NULL};
  224. T857 M857={857,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL};
  225. T284 M284={284,NULL};
  226. T297 M297={297,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0};
  227. T835 M835={835,NULL,NULL,NULL,NULL,NULL,NULL};
  228. T419 M419={NULL,0,0,0};
  229. T568 M568={568,NULL,NULL,NULL,NULL,NULL};
  230. T362 M362={362,NULL,NULL,NULL};
  231. T970 M970={970};
  232. T620 M620={620,NULL,NULL,NULL,NULL};
  233. T901 M901={NULL,0,0,0};
  234. T549 M549={549,NULL,NULL,NULL,NULL};
  235. T526 M526={526,NULL,NULL};
  236. T927 M927={NULL,0,0};
  237. T623 M623={NULL,NULL,NULL,NULL};
  238. T869 M869={869,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL};
  239. T112 M112={112,NULL,NULL,NULL,NULL,NULL,NULL};
  240. T648 M648={648,NULL,NULL,NULL,NULL};
  241. T649 M649={649,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  242. T396 M396={NULL,0,0,0};
  243. T580 M580={NULL,NULL,NULL};
  244. T118 M118={118,NULL,NULL,NULL,NULL,NULL,NULL};
  245. T558 M558={558,NULL,NULL,NULL,NULL,0};
  246. int r6_ix_not(int C){
  247. int R=0;
  248. /*IF*/if (C) {
  249. }
  250. else {
  251. R=1;
  252. }
  253. /*FI*/return R;
  254. }
  255. T0* r2to_string(int C){
  256. T0* R=NULL;
  257. {T7*n=malloc(sizeof(*n));
  258. *n=M7;
  259. r7make(n,0);
  260. R=(T0*)n;
  261. }
  262. r2append_in(C,R);
  263. return R;
  264. }
  265. void r2append_in(int C,T0* a1){
  266. int _i=0;
  267. int _val=0;
  268. /*IF*/if ((C)==(0)) {
  269. r7extend(((T7*)a1),'0');
  270. }
  271. else {
  272. /*IF*/if ((C)>(0)) {
  273. _i=((((T7*)((T7*)a1)))->_count/*4*/)+(1);
  274. _val=C;
  275. while (!((_val)==(0))) {
  276. r7extend(((T7*)a1),r2digit((_val)%(10)));
  277. _val=(_val)/(10);
  278. }
  279. }
  280. else {
  281. r7extend(((T7*)a1),'\55');
  282. _i=((((T7*)((T7*)a1)))->_count/*4*/)+(1);
  283. _val=C;
  284. while (!((_val)==(0))) {
  285. r7extend(((T7*)a1),r2digit(-((_val)%(10))));
  286. _val=(_val)/(10);
  287. }
  288. }
  289. /*FI*/_val=(((T7*)((T7*)a1)))->_count/*4*/;
  290. while (!((_i)>=(_val))) {
  291. r7swap(((T7*)a1),_i,_val);
  292. _val=(_val)-(1);
  293. _i=(_i)+(1);
  294. }
  295. }
  296. /*FI*/}
  297. int r2min(int C,int a1){
  298. int R=0;
  299. /*IF*/if ((C)<(a1)) {
  300. R=C;
  301. }
  302. else {
  303. R=a1;
  304. }
  305. /*FI*/return R;
  306. }
  307. char r2digit(int C){
  308. char R=0;
  309. R=((char)((C)+(((unsigned char)'0'))));
  310. return R;
  311. }
  312. int r2max(int C,int a1){
  313. int R=0;
  314. /*IF*/if ((a1)<(C)) {
  315. R=C;
  316. }
  317. else {
  318. R=a1;
  319. }
  320. /*FI*/return R;
  321. }
  322. int r3is_separator(char C){
  323. int R=0;
  324. {int z1=C;
  325.  
  326. if((0==z1)||((9<=z1)&&(z1<=10))||(13==z1)||(32==z1)){
  327. R=1;
  328. }
  329. }
  330. return R;
  331. }
  332. char r3to_lower(char C){
  333. char R=0;
  334. /*IF*/if ((((unsigned char)C))<(65)) {
  335. R=C;
  336. }
  337.  else if ((((unsigned char)C))>(90)) {
  338. R=C;
  339. }
  340. else {
  341. R=((char)((((unsigned char)C))+(32)));
  342. }
  343. /*FI*/return R;
  344. }
  345. int r3_px_60(char C,char a1){
  346. int R=0;
  347. R=(((unsigned char)C))<(((unsigned char)a1));
  348. return R;
  349. }
  350. int r3value(char C){
  351. int R=0;
  352. R=(((unsigned char)C))-(48);
  353. return R;
  354. }
  355. int r3same_as(char C,char a1){
  356. int R=0;
  357. /*IF*/if ((C)==(a1)) {
  358. R=1;
  359. }
  360. else {
  361. {int z1=((unsigned char)C);
  362.  
  363. if(((65<=z1)&&(z1<=90))){
  364. R=(((unsigned char)C))==((((unsigned char)a1))-(32));
  365. }
  366.  else 
  367. if(((97<=z1)&&(z1<=122))){
  368. R=(((unsigned char)C))==((((unsigned char)a1))+(32));
  369. }
  370. }
  371. }
  372. /*FI*/return R;
  373. }
  374. int r3_px_6261(char C,char a1){
  375. int R=0;
  376. R=(((unsigned char)C))>=(((unsigned char)a1));
  377. return R;
  378. }
  379. int r3is_digit(char C){
  380. int R=0;
  381. {int z1=C;
  382.  
  383. if(((48<=z1)&&(z1<=57))){
  384. R=1;
  385. }
  386. }
  387. return R;
  388. }
  389. char r3to_upper(char C){
  390. char R=0;
  391. /*IF*/if ((((unsigned char)C))<(97)) {
  392. R=C;
  393. }
  394.  else if ((((unsigned char)C))>(122)) {
  395. R=C;
  396. }
  397. else {
  398. R=((char)((((unsigned char)C))-(32)));
  399. }
  400. /*FI*/return R;
  401. }
  402. int r3is_letter(char C){
  403. int R=0;
  404. {int z1=C;
  405.  
  406. if(((65<=z1)&&(z1<=90))||((97<=z1)&&(z1<=122))){
  407. R=1;
  408. }
  409. }
  410. return R;
  411. }
  412. void r497copy_from(T497 C,T497 a1,int a2){
  413. int _i=0;
  414. _i=a2;
  415. while (!((_i)<(0))) {
  416. (C)[_i]=((a1)[_i]);
  417. _i=(_i)-(1);
  418. }
  419. }
  420. T497 r497realloc(T497 C,int a1,int a2){
  421. T497 R=NULL;
  422. R=calloc(a2,sizeof(T0*));
  423. r497copy_from(R,C,(a1)-(1));
  424. return R;
  425. }
  426. void r731set_all_with(T731 C,T0* a1,int a2){
  427. int _i=0;
  428. _i=a2;
  429. while (!((_i)<(0))) {
  430. (C)[_i]=(a1);
  431. _i=(_i)-(1);
  432. }
  433. }
  434. void r731copy_from(T731 C,T731 a1,int a2){
  435. int _i=0;
  436. _i=a2;
  437. while (!((_i)<(0))) {
  438. (C)[_i]=((a1)[_i]);
  439. _i=(_i)-(1);
  440. }
  441. }
  442. T731 r731realloc(T731 C,int a1,int a2){
  443. T731 R=NULL;
  444. R=calloc(a2,sizeof(T0*));
  445. r731copy_from(R,C,(a1)-(1));
  446. return R;
  447. }
  448. void r500copy_from(T500 C,T500 a1,int a2){
  449. int _i=0;
  450. _i=a2;
  451. while (!((_i)<(0))) {
  452. (C)[_i]=((a1)[_i]);
  453. _i=(_i)-(1);
  454. }
  455. }
  456. T500 r500realloc(T500 C,int a1,int a2){
  457. T500 R=NULL;
  458. R=calloc(a2,sizeof(T0*));
  459. r500copy_from(R,C,(a1)-(1));
  460. return R;
  461. }
  462. void r539copy_from(T539 C,T539 a1,int a2){
  463. int _i=0;
  464. _i=a2;
  465. while (!((_i)<(0))) {
  466. (C)[_i]=((a1)[_i]);
  467. _i=(_i)-(1);
  468. }
  469. }
  470. T539 r539realloc(T539 C,int a1,int a2){
  471. T539 R=NULL;
  472. R=calloc(a2,sizeof(T0*));
  473. r539copy_from(R,C,(a1)-(1));
  474. return R;
  475. }
  476. void r42copy_from(T42 C,T42 a1,int a2){
  477. int _i=0;
  478. _i=a2;
  479. while (!((_i)<(0))) {
  480. (C)[_i]=((a1)[_i]);
  481. _i=(_i)-(1);
  482. }
  483. }
  484. T42 r42realloc(T42 C,int a1,int a2){
  485. T42 R=NULL;
  486. R=calloc(a2,sizeof(T0*));
  487. r42copy_from(R,C,(a1)-(1));
  488. return R;
  489. }
  490.  
  491.